home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / DATEDAYS.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  200b  |  13 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE: 'qbtools2.inc'
  3.  
  4. FUNCTION DateInDays$ (Dt$, Days%) STATIC
  5.  
  6. Juln! = Julian(Dt$)
  7. Juln! = Juln! + Days%
  8.  
  9. DateInDays$ = JulianToDate(Juln!)
  10.  
  11. END FUNCTION
  12.  
  13.